home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / kcl.lha / lsp / seqlib.data < prev    next >
Text File  |  1987-02-16  |  2KB  |  91 lines
  1.           
  2. #(
  3. #!
  4. (lisp::in-package 'user::lisp)
  5. #!
  6. (lisp::export '(lisp::reduce lisp::fill lisp::replace lisp::remove lisp::remove-if lisp::remove-if-not lisp::delete lisp::delete-if lisp::delete-if-not lisp::count lisp::count-if lisp::count-if-not lisp::substitute lisp::substitute-if lisp::substitute-if-not lisp::nsubstitute lisp::nsubstitute-if lisp::nsubstitute-if-not lisp::find lisp::find-if lisp::find-if-not lisp::position lisp::position-if lisp::position-if-not lisp::remove-duplicates lisp::delete-duplicates lisp::mismatch lisp::search lisp::sort lisp::stable-sort lisp::merge))
  7. #!
  8. (lisp::in-package 'lisp::system)
  9. (lisp::optimize (lisp::safety 2) (lisp::space 3))
  10. (lisp::function system::seqtype (lisp::t) lisp::t)
  11. lisp::list
  12. lisp::string
  13. lisp::bit-vector
  14. lisp::array
  15. "~S is not a sequence."
  16. (lisp::function system::call-test (lisp::t lisp::t lisp::t lisp::t) lisp::t)
  17. (lisp::function system::check-seq-test (lisp::t lisp::t) lisp::t)
  18. "Both :TEST and :TEST-NOT were specified."
  19. (lisp::function system::check-seq-start-end (lisp::t lisp::t) lisp::t)
  20. "Fixnum expected."
  21. "START is greater than END."
  22. (lisp::function system::check-seq-args (lisp::t lisp::t lisp::t lisp::t) lisp::t)
  23. "Both :TEST and :TEST-NOT were specified."
  24. "Fixnum expected."
  25. "START is greater than END."
  26. 0
  27. 1
  28. :from-end
  29. :test
  30. :test-not
  31. :start
  32. :end
  33. :count
  34. :key
  35. lisp::remove
  36. lisp::delete
  37. lisp::count
  38. system::internal-count
  39. lisp::substitute
  40. lisp::nsubstitute
  41. lisp::find
  42. lisp::position
  43. 2
  44. (lisp::function system::quick-sort (lisp::t lisp::fixnum lisp::fixnum lisp::t lisp::t))
  45. lisp::proclaim
  46. system::seqtype
  47. system::call-test
  48. system::check-seq-test
  49. system::check-seq-start-end
  50. system::check-seq-args
  51. lisp::reduce
  52. lisp::fill
  53. lisp::replace
  54. lisp::remove-if
  55. lisp::remove-if-not
  56. lisp::delete-if
  57. lisp::delete-if-not
  58. lisp::count-if
  59. lisp::count-if-not
  60. system::internal-count-if
  61. system::internal-count-if-not
  62. lisp::substitute-if
  63. lisp::substitute-if-not
  64. lisp::nsubstitute-if
  65. lisp::nsubstitute-if-not
  66. lisp::find-if
  67. lisp::find-if-not
  68. lisp::position-if
  69. lisp::position-if-not
  70. lisp::remove-duplicates
  71. lisp::delete-duplicates
  72. lisp::mismatch
  73. lisp::search
  74. lisp::sort
  75. system::list-merge-sort
  76. system::quick-sort
  77. lisp::stable-sort
  78. lisp::merge
  79. system::fixnump
  80. :initial-value
  81. :start1
  82. :end1
  83. :start2
  84. :end2
  85. lisp::identity
  86. lisp::funcall
  87. lisp::make-sequence
  88. system::member1
  89. lisp::coerce
  90. )
  91.